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EDTSWFAPPBKT = append a new bucket 18-52 -Sep-1984 ¢ 98: EH 749 VAX-11 BL Alege se 
14-Sep-1984 DISKSVMSMASTE 
1 ZTITLE ‘ED Tow ferent - append a new bucket' 
§ MODULE EDTSWFAPPBKT ( ! Append ., new bucket to a te 
i or = ‘'v04-000' ' File: WFAPPBKT.BLI 
= 
5 BEGIN 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie ne fe ierhe fs FURNISHED UNDER A LICENSE AND MAY BE USED AND corte 
:* ONLY IN ANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
fe INCLUSION. OF OTHE ABOVE Sg lth NOTICE. THIS SOFTWARE OR ANY OTHER 


:® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
+ OORPORAT ION. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


!® DIGITAL ASSUMES NO RESPONSIB 
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'¢¢ 
FACILITY: EDT == The DEC Standard Editor 


| ABSTRACT: 
Append a new bucket to a text bi'ffer. 

; | ENVIRONMENT Runs at any access mode - AST reentrant 

AUTHOR: Bob Kushlis, CREATION DATE: October 16, 1978 

{ MODIFIED BY: 

; *-001 - Original. DJS 23-Feb-1981. This module was created by 
gatrece ing routine APPEND BUKT from module EDTWF. 

1-002 - Requler ze headers. JBS 16-Mar-1981 

i 1-00 fy to use + Ad STS 15-Feb-1982 

' 1-004 = Add Literals for callable oreneters, oats 08-Mar-1982 


! 1-005 = Put wf_nxt_buk in Line. STS 11-Oct-1 
tee - Imprové thé appearance of the Yb ely JBS 20-Jun-1983 
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1 sre WFAPPBKT.BLI; 
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RSBTTL ‘Declarations’ 
TABLE OF CONTENTS: 


REQUIRE ‘EDTSRC: TRAROUNAM'; 


FORWARD ROUTINE 
EDTSS$WF_NEWBUK : NOVALUE; 


; INCLUDE FILES: 
REQUIRE ‘EDTSRC:EDTREQ'; 


! 
! MACROS: 

NONE 
EQUATED SYMBOLS: 


EXTERNAL LITERAL 
EDTSK $ 
OWN STORAGE: 
NONE 
EXTERNAL REFERENCES: 


! 
i 
i 
i 
i 
i 
i 
! In the routine 


V4.0-74 Page 2 
a EDT SRCTWFAPPAKT.BLICT” (2), 


wef 
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EDTSwF APPBKT EDTSWFAPPBKT = append a new bucket 1b-se 1984 7:01:49 VAX-11 Bliss-32 V4.0-74 Page 3 
Oe 000 EDTSSwF _NEWBUK > append a new bucket 1 ~$007138% 95:91:32 DEK SUMCMASTERSCEDT Sac SUFAPPBKT.BLIt” (3). 
: 39 $60 } ZSBITL ‘EDTSSWF_NEWBUK = append a new bucket’ 
: % 66¢ 1 GLOBAL ROUTINE EDTSSWF_NEWBUK ( ' Append a new bucket to a text buffer 
; 665 1 NEXT, ' Next bucket, or 0 
s 664 1 PREV ' Previous bucket, or 0 
; 665 1 ) : NOVALUE = 
3 +] 298 1 
ee 0667 1 !44 
: 38 Boe8 : FUNCTIONAL DESCRIPTION: 
: 100 0670 1 i This routine appends a new bucket to a text buffer. The bucket is | 
; 133 bers 1! Linked into the chain. 
is ¢ ore 1! 
3; 067 1 ! FORMAL PARAMETERS: 
> 104 0674 1! | 
3 ies Ror? : NEXT the bucket which will follow the new bucket or 0 if it is at the end. | 
: 197 + tA 4 : | PREV the bucket which will precede the new bucket or 0 if it is the first. 
: 109 0679 1 | IMPLICIT INPUTS: 
; 110 0680 1! 
Sy 0681 1! gp TSA. CUR BUF 
5 it¢ 0682 1! DTS$$A_WK_BuK 
:; 11 0683 1! EDT$$G_WK_CURBUK 
; 6116 0684 1! EDTSSA_WK_LN 
: 115 0685 1! EDT$$Z_WF_DESC 
> 116 0686 1! EDT$$G_WK—MODFD 
; 117 0687 1! EDTS$$G_WK_AV 
: 118 0688 1! EDTS$$G_WK_GTRSTBUK 
3 «119 0689 1! 
3 1s? 0690 1 ! IMPLICIT OUTPUTS: 
: «121 0691 1! 
3 \$¢ 069 . 3 EDTSSA_CUR_BUF 
3 12 0693 1: EDT$$G_WKk_MODFD 
> 126 0694 1 | EDT$$G_WK~ CURBUK | 
: 125 0695 1! 
: 126 0696 1 ! ROUTINE VALUE: 
: 127 0697 1! 
: 158 0698 1: NONE | 
; 192 0699 1! | 
; 130 0700 1 ! SIDE EFFECTS: | 
3 131 0701 1! 
eb 0702 1! NONE 
2 -¥ 0703 1! 
0704 1 !-- 
: 13 18 BEGIN 
: 139 707 | 
; 138 708 EXTERNAL ROUTINE ; 
; 139 0709 EDTSSCALLWIO, ' calls appropriate workfile routine 
; 140 0710 EDTS$WF_ALOBUF : NOVALUE 
i 141 ort] EDTSS$WF-MAKECUR : NOVALUE; 
: 12 ab EXTERNAL : 
3 144 714 EDTS$2Z_WF DESC : BLOCK (8, BYTE), ! workfile record descriptor 
3; 6145 0715 EDT$$A_CUR_BUF : REF TBCB_BLOCK, ! Current text buffer control block 
: 146 0716 EDTS$$G_WK_AVAIL, 
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EDTSWF APPBKT WFAPPBKT = append a new bucket 16-Sep-1984 02:01:49 VAX-11 Bliss-32 V4.0-74 Page 4 
4-000 SWF_NEWBUK = append a new bucket 12-808- 132 95393 :32 DI SKSVMEMASTERSLEDT SRCTWFAPPBKT.BLI04° (3) 

EDT$$G_WK_GRTSTBUK, | 

EDTSSA_WK BUK : ! Pointer to current bucket 

REF BCOCK CWF_BUKT_SIZE, BYTE] FIELD (WEB FIELDS) 
gots G_wWk_C ' NumBer of the current bucket 
EDTS 


$ 
SA“WK"LN : REF LIN_BLOCK, i Pointer to current Line 
$G_WK_MODFD; ! Flag indicating bucket was modified 


14 
Is this the Last bucket in the buffer? 


IF (.NEXT EQL 0) 

- THEN 

;_Yes, update the last bucket field of EDTS$A_CUR_BUF 

IF (.EDTS$G_WK_AVAIL NEQ 0) 
EDTSS$A_CUR_BUF CTBCB_LAST_BUKT] = .EDTS$G_WK_AVAIL 
EDTSSA_CUR_BUF CTBCB_LAST_BUKT] = .EDTS$$G_WK_GRTSTBUK 
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0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
re ELSE 
9 4g : No, Link the next bucket back to the one we are adding. 
0744 : BEGIN 
8 F EDTSSWF_MAKECUR (.NEXT); 
0747 IF (.EDTS$$G_WK_AVAIL NEQ 0) 
0749 EDTSS$A_WK_BUK CWFB_PREV_BUKT] = .EDT$$G_WK_AVAIL 
0751 EDTSS$A_WK_BUK CWFB_PREV_BUKT] = .EDT$$G_WK_GRTSTBUK; 
O78 EDTS$G_WK_MODFD = 1; 
0754 END; 
0755 
0756 '¢ , 
2 Write out the current bucket if it has been modified. 
0759 ; 
; th IF .EDTS$G_WK_MODFD THEN EDTSSCALLWIO (EDTSK_PUT, .EDT$$G_WK_CURBUK, EDTS$$Z_WF_DESC); 
§ gfe EDTS$$G_WK_MODFD = 0; 
i, 764 i Get a new bukt. 
5 765 t= 
38 th EDTSSWF_ALOBUF (); 
98 16 : Update the current bucket and next bucket info 
Bf 770 EDTSSA_CUR_BUF CTBCB_CUR_BUKT] = .EDTS$$G_WK_CURBUK; 
0¢ 7 Fill in the bucket info for the new bucket 


mm 
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-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 
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EDTSWFAPPBKT EDTSWFAPPBKT = append a new bucket 16-Sep-1984 01:49 VAX-11 Bliss-32 V4.0-74 Page 5) 
Oa 000 EDTSSWF _NEWBUK : append a new bucket 12-80-1382 95:01:38 DISKSVMSMASTER: CEDT.SRCJWFAPPBKT.BLI 19 (3) | 
; 204 774 EDTSSA WK BUK [VEB_NEXT BUKT) = .NEXT; | 
; 205 775 EDTS$A_WK-BUK (WFB- ~PREY=BU BUK 
: 06 £76 . EDTS$$A_WK-BUK CWFB-ENDJ~= ure. FIXED Mize: 
: oS O78 ! Update EDTSSA_CUR_BIIF to point to first record in this new bucket 
: 210 780 EDISSA_ CUR_BUF CTBCB_LINE_ADDR] = WFB_FIXED SIZE; 
; i 4 EDTSSA-WK_CN = CHSPTR (.EDTSS$A_WK_BUK, WFB_FIXED.SIZE); 
: ig ores i Mark the new bucket as modified. 
> 214 784 ‘= 
: 215 0785 EDTS$G_WK_MODFD = 1; 
3; 26 0786 END; ! of routine EDTSSWF_NEWBUK | 
-TITLE EDTSWFAPPBKT EDTSWFAPPBKT - append a new bucket 
-IDENT \v04-000\ 
.EXTRN EDTS$K PUT. ofDTSSCALL IO 
~EXTRN EDTSSOF F, EDTSSWF_MAKECUR 
~EXTRN EDT$$Z “ar “DES SC. EDTS$A_CUR_BUF 
EXTRN EDTS$$G_WK-AVAIL 
EXTRN EDTS$G_ uk ~GRTSTBUK 
EXTRN EDT K~BUK, EDT$$G_WK_CURBUK 
EXTRN EDISSAq UK? “LN, EDT$$G_QK_MODFD | 
- | 
01FC 00000 .ENTRY EDTSSWF NEWBUK Save R2,R3,R4,R5,R6,R7.R8 ; 0662. 
58 000000006 00 9€ 00002 MOVAB EDTS$$A_CTUR : 
57 £3000000G 00 9€ 00009 MOVAB EDTS$$G_ Wk “toned R7 ; 
56 000000006 00 9€ 90019 MOVAB EDTSSA UK : 
55 000000006 00 9€E 00017 MOVAB EDISSC7 uk “GATS TBUK RS ; 
54 000000006 00 9E 0001 MOVAB EDTS$$G_W RS : 
53 000000006 00 9 900 MOVAB EDTS$$G~ ve “RODE, R : 
52 04 ac 00 0002C MOVL NEXT, R2 ~ : 0728 
14 12 00030 BNEQ 2s : 
50 68 DO 000 é MOVL EDT$$A_CUR_BUF, RO : 0736 
51 64 9 000 MOVL EDT$$G_WK_AVAIL, R1 : 0734 
06 1 99 BEQL 1$ : 
10 Ad 1 80 O3A MOVW R1, 16(RO) : 0736 
22 1 99 E BRB 5$ : 
10 Ad 65 BO 00040 1$ MOVW EDTSSG_wKk_GRTSTBUK, 16(RO) : 0738 
iC 11 9044 BRB ; 2 0736 | 
52 oD 00 46 28 PUSHL R : 0745 | 
000000006 00 07 F 904 CALLS #1 Hea MAKE CUR ; | 
51 66 D 4F MOVL  EDTS Ok : 0749 
50 64 0 0 : MOVL EDTSS6_ Wk “Avail” "20 > 0747 
9° 1 BEQL 5 : 
61 80 057 MOVW RO, (R1) : 0749 
0 1 0005A BRB 4$ : 
61 65 8B 05C 3$: MOVW EDTS$G_WK GRISTBUK. (R1) : 0751 | 
63 0} D F 4S: MOVL #i, EDT$$6 W MODE : 0753 
15 ‘ b $2 5$: BLBC —« EDT $$G_w K_AODED. : 0760 
000000006 00 9F PUSHAB EDT$$2— : 
DD 90068 PUSHL EDT$$G~WK ~ PE UK : 
000000006 8F DD 0006D PUSHL #EDTSK~PUT : 
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EDTSWFAPPBKT EDTSWFAPPBKT = append a new bucket 18- seo 1? 4 0g: 91:48 VAX-11 Bliss-32 V4.0 Page 
v04-900 EDTSSWF_NEWBUK = append a new bucket 14-Sep-1984 12:25:26 DISKSVMSMASTER: ceoT she WF APPBKT.BLI;1 
000000006 00 03 FB 00073 CALLS DTSSCALLWIO : 
63 D4 OOO7A 6$: CLRL EDtséc MODFD F 
000000006 00 00 FB oo7¢ CALLS EDTSSar ALOBUF : 
51 68 DO 0008 MOVL ots A_CUR_BUF, R1 : 
04 Al 6 88 00 MOVW EDT$$G_W K _CURBUK 4(R1) : 
50 $6 DO 000 MOVL  EDTS$S$A~ he , RO : 
02 AO BO 0008D MOVW RZ. 2(RO) : 
60 08 AC B80 00091 MOVW PREV, (RO) 3 
04 Ad 0 DO 0095 MOVL a8, 4(Rr0) : 
61 DO 00099 MOVL #8, (R1) : 
000000006 09 08 Ad 4 009¢ MOVAB 8(RO) pee WK_LN : 
6 01 p 0 AG MOVL #1, EDT$$G_WK-MODFD : 
4 000A7 RET : 
; Routine Size: 168 bytes, Routine Base: _EDTSCODE + 0000 


0787 1 
0788 1 !<BLF/PAGE> 


rt” = = "a 
| 
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EDTSWFAPPBKT EDTSWFAPPBKT = append a new bucket 16-Sep-1984 1:49 VAX-11 Bliss-32 V4. Page 7| 

v04-000 EDTSSWF_NEWBUK = append a new bucket 14-Sep 519 38 98: gt: :26 DISKSVMSMAS) =R:CEDT OSRC TUF APPBKT. 8, We (4) | 

3 381 678° ! END ! of module EDTSWFAPPBKT 

: dee C73 0 ELUDOM | 

; PSECT SUMMARY 

; Name Bytes Attributes 

: _EDTSCODE 168 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 

: Library Statistics 

RS a ee ee ae Symbols -------- Pages Processing 

: File Total Loaded Percent Mapped Time 

: _$255$DUA28:CEDT.SRCJEDT.L32;1 377 39 10 40 00:00.2 

3 ~$255$DUA28:CEDT.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 | 
| 
| 

: COMMAND QUALIFIERS | 

; FL SES REE EE SOLD. DUE TEM, OPT ERE LE) PEBTRNEEDACE AL TOM. LOD CAY APPORL/ER IORI LOVERS MSRC$: WF APPBKT .BLI/UPDATE=(ENHS: WF AP 


3 ptare 168 code + 0 data bytes 

: Run Time 00:13.4 
; ky Hat 00:18.2 

3 Lines/CPU Min: 547 

; oneness ore } 569 

: penecy Used: 6 pages 

3; Compilation cine e 
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